home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 34.zip / BS1 part 34 / GFA basic training.adf / Copper / CYCLE.ASS < prev    next >
Text File  |  1989-06-01  |  903b  |  23 lines
  1. ; Assembler Teil / Copper Cycle
  2.  
  3. anfang:
  4.  movem.l  d0-d7/a0-a6,-(a7) ;Alle Register auf Stack
  5.  move.w  $dff01e,d0         ;Lese IRQ-Register
  6.  btst  #5,d0                ;Vertikale Austastluecke?
  7.  beq.s  nein                ;Wenn kein VBlank -> ende
  8.  move.l  #$00000000,a0      ;1.Farbwert-Adresse(+6)
  9.  move.l  #$00000000,a1      ;2.Farbwert-Adresse(+14)
  10.  move.w  (a0),d1            ;1.Wert Retten
  11.  move.l  #$00000000,d0      ;Anzahl der zu verschiebenden Farbwerte
  12. schleife:
  13.  move.w  (a1),(a0)          ;Kopiere Untere Farbe nach Oben
  14.  add.l  #8,a1               ;Zeiger auf naechste Farbe(2.)
  15.  add.l  #8,a0               ;Zeiger auf naechste Farbe(1.)
  16.  dbra  d0,Schleife          ;Zaehler runterzaehlen
  17. ;Ende erreicht?
  18.  move.w  d1,(a1)            ;1.Wert an unterste Stelle zurueck
  19. nein:
  20.  movem.l  (a7)+,d0-d7/a0-a6 ;Alle Register wieder zurueck
  21.  jmp  $00000000             ;Sprung auf System-Vector
  22.  
  23.